home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TK-BYE.ZIP / BYE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-23  |  5KB  |  217 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   TSTRING003(15)
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     Cls
  29.     PrintLn "@POFF@@X08-----------------------------------------------------------------------------"
  30.     PrintLn "              @X05  Log Off Are You Sure You Realy Want To Do It?"
  31.     PrintLn "@X08-----------------------------------------------------------------------------"
  32.     AnsiPos 1, 19
  33.     PrintLn ".---------------------------------------------------------------------------."
  34.     PrintLn "|            @X67   Hang Up   @X06    Exit Back To BBS       Add A Liner            @X08|"
  35.     PrintLn "`---------------------------------------------------------------------------'"
  36.     PrintLn "                                                      @X03THe BLaCK aSSaSSiN '96"
  37.     FOpen 1, PPEPath() + "BYE.DAT", 0, 0
  38.     For INTEGER001 = 1 To 15
  39.         FGet 1, TSTRING003(INTEGER001)
  40.         AnsiPos 38 - Len(TSTRING003(INTEGER001)) / 2, INTEGER001 + 3
  41.         Print "@X0C[@X04" + TSTRING003(INTEGER001) + "@X0C]"
  42.     Next
  43.     FClose 1
  44.     INTEGER002 = 1
  45.     :LABEL001
  46.     AnsiPos 14, 20
  47.     If (INTEGER002 == 1) Print "@X67   Hang Up   @X06    Exit Back To BBS       Add A Liner   "
  48.     If (INTEGER002 == 2) Print "@X06   Hang Up    @X67   Exit Back To BBS   @X06    Add A Liner   "
  49.     If (INTEGER002 == 3) Print "@X06   Hang Up   @X06    Exit Back To BBS    @X67   Add A Liner   @X08"
  50.     While (STRING001 <> Chr(13)) Do
  51.         AnsiPos 77, 22
  52.         STRING001 = ""
  53.         While (STRING001 == "") Do
  54.             STRING001 = Inkey()
  55.         EndWhile
  56.         AnsiPos 14, 20
  57.         If (STRING001 == "LEFT") Dec INTEGER002
  58.         If (STRING001 == "RIGHT") Inc INTEGER002
  59.         If (INTEGER002 == 0) INTEGER002 = 1
  60.         If (INTEGER002 == 4) INTEGER002 = 3
  61.         If (INTEGER002 == 1) Print "@X67   Hang Up   @X06    Exit Back To BBS       Add A Liner   "
  62.         If (INTEGER002 == 2) Print "@X06   Hang Up    @X67   Exit Back To BBS   @X06    Add A Liner   "
  63.         If (INTEGER002 == 3) Print "@X06   Hang Up   @X06    Exit Back To BBS    @X67   Add A Liner   @X08"
  64.     EndWhile
  65.     If (INTEGER002 == 1) Then
  66.         Dir "G Y"
  67.         End
  68.     Endif
  69.     If (INTEGER002 == 2) Then
  70.         Cls
  71.         End
  72.     Endif
  73.     If (INTEGER002 == 3) Then
  74.         For INTEGER001 = 1 To 14
  75.             AnsiPos 1, INTEGER001 + 3
  76.             ClrEol
  77.             AnsiPos 38 - Len(TSTRING003(INTEGER001 + 1)) / 2, INTEGER001 + 3
  78.             Print "@X0C[@X04" + TSTRING003(INTEGER001 + 1) + "@X0C]"
  79.         Next
  80.         AnsiPos 1, 18
  81.         ClrEol
  82.         INTEGER003 = 0
  83.         STRING002 = ""
  84.         STRING001 = ""
  85.         AnsiPos 38, 18
  86.         Print "@X0C[]"
  87.         AnsiPos 39, 18
  88.         While (STRING001 <> Chr(13)) Do
  89.             STRING001 = ""
  90.             While (STRING001 == "") Do
  91.                 STRING001 = Inkey()
  92.                 If (STRING001 == "RIGHT") STRING001 = ""
  93.                 If (STRING001 == "LEFT") STRING001 = ""
  94.                 If (STRING001 == "UP") STRING001 = ""
  95.                 If (STRING001 == "DOWN") STRING001 = ""
  96.                 If (STRING001 == "@") STRING001 = ""
  97.                 If (INTEGER003 == 73) If (STRING001 <> Chr(8)) If (STRING001 <> Chr(13)) STRING001 = ""
  98.             EndWhile
  99.             If ((STRING001 == Chr(8)) && (INTEGER003 <> 0)) Then
  100.                 Dec INTEGER003
  101.                 STRING002 = Left(STRING002, Len(STRING002) - 1)
  102.             Endif
  103.             If ((STRING001 <> Chr(13)) && (STRING001 <> Chr(8))) Then
  104.                 STRING002 = STRING002 + STRING001
  105.                 Inc INTEGER003
  106.             Endif
  107.             AnsiPos 37 - Len(STRING002) / 2, 18
  108.             Print " @X0C[@X04" + STRING002 + "@X0C] "
  109.             AnsiPos GetX() - 2, GetY()
  110.         EndWhile
  111.         AnsiPos 14, 20
  112.         Print "                @X67   Save   @X06    Abort                   "
  113.         INTEGER002 = 1
  114.         STRING001 = ""
  115.         While (STRING001 <> Chr(13)) Do
  116.             AnsiPos 77, 22
  117.             STRING001 = ""
  118.             While (STRING001 == "") Do
  119.                 STRING001 = Inkey()
  120.             EndWhile
  121.             AnsiPos 30, 20
  122.             If (STRING001 == "LEFT") INTEGER002 = 1
  123.             If (STRING001 == "RIGHT") INTEGER002 = 2
  124.             If (INTEGER002 == 1) Print "@X67   Save   @X06    Abort   "
  125.             If (INTEGER002 == 2) Print "@X06   Save    @X67   Abort   @X06"
  126.         EndWhile
  127.         If (INTEGER002 == 1) Then
  128.             For INTEGER001 = 1 To 14
  129.                 TSTRING003(INTEGER001) = TSTRING003(INTEGER001 + 1)
  130.             Next
  131.             TSTRING003(15) = STRING002
  132.             Log "Toxic Krystal Log Off V1.0 Liner Added!", 0
  133.             Log Mixed(U_Name()) + " Wrote: " + STRING002, 0
  134.             FCreate 1, PPEPath() + "BYE.DAT", 1, 3
  135.             For INTEGER001 = 1 To 15
  136.                 FPutLn 1, TSTRING003(INTEGER001)
  137.             Next
  138.             FClose 1
  139.         Endif
  140.         If (INTEGER002 == 2) Then
  141.             For INTEGER001 = 1 To 15
  142.                 AnsiPos 1, INTEGER001 + 3
  143.                 ClrEol
  144.                 AnsiPos 38 - Len(TSTRING003(INTEGER001)) / 2, INTEGER001 + 3
  145.                 Print "@X0C[@X04" + TSTRING003(INTEGER001) + "@X0C]"
  146.             Next
  147.         Endif
  148.         STRING001 = ""
  149.     Endif
  150.     Goto LABEL001
  151.  
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Usage report (before postprocessing)
  155. ;
  156. ; ■ Statements used :
  157. ;
  158. ;    2       End
  159. ;    2       Cls
  160. ;    3       ClrEol
  161. ;    30      Goto 
  162. ;    37      Let 
  163. ;    14      Print 
  164. ;    7       PrintLn 
  165. ;    40      If 
  166. ;    1       FCreate 
  167. ;    1       FOpen 
  168. ;    2       FClose 
  169. ;    1       FGet 
  170. ;    1       FPutLn 
  171. ;    2       Log 
  172. ;    2       Inc 
  173. ;    2       Dec 
  174. ;    1       Dir 
  175. ;    17      AnsiPos 
  176. ;
  177. ;
  178. ; ■ Functions used :
  179. ;
  180. ;    4       /
  181. ;    26      +
  182. ;    6       -
  183. ;    29      ==
  184. ;    8       <>
  185. ;    5       <
  186. ;    5       <=
  187. ;    10      >=
  188. ;    18      !
  189. ;    12      &&
  190. ;    5       ||
  191. ;    5       Len(
  192. ;    1       Left()
  193. ;    8       Chr()
  194. ;    1       U_Name()
  195. ;    3       Inkey()
  196. ;    2       PPEPath()
  197. ;    1       GetX()
  198. ;    1       GetY()
  199. ;    1       Mixed()
  200. ;
  201. ;------------------------------------------------------------------------------
  202. ;
  203. ; Analysis flags : No flag
  204. ;
  205. ;------------------------------------------------------------------------------
  206. ;
  207. ; Postprocessing report
  208. ;
  209. ;    5       For/Next
  210. ;    6       While/EndWhile
  211. ;    7       If/Then or If/Then/Else
  212. ;    0       Select Case
  213. ;
  214. ;------------------------------------------------------------------------------
  215. ;                 AEGiS Corp - Break the routines, code against the machines!
  216. ;------------------------------------------------------------------------------
  217.